﻿Public Class locatefriends
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        Dim person As String
        Dim redirect As String
        person = friendSearch.Text
        redirect = "searchresults.aspx?search=" + person
        Response.Redirect(redirect)
    End Sub
End Class